


װ

ϴļ
xt_setup.aspļimagesļ ̳Ŀ¼xt_setup.aspļ
ʾΪݿһֶΣװʾɾļ

ļ޸ģ
һadmin_postings.aspļ

ҵ
	Select Case Request("action")

		Case "IsOK"
			Call IsOK()
		Case "NoOK"
			Call NoOK()
		Case "OK"
			Call OK()
		Case "WaitingOK"
			Call WaitingOK()

ҵһ

	End Class

һе´
	'xintiaoӼ״̬ʼ
	Public Sub IsOK()
		LogType=3
		sucmsg="ѽ" & "ID" & Dvbbs.BoardID & "ID" & ID
		Dvbbs.Execute("Update [Dv_topic] Set Ok = 1 Where BoardID = " & Dvbbs.BoardID & " And TopicID = " & ID)
		Insert_Forum_Log()
		Update_User_Point("")
		Topic_Manage_Sms()
		Dvbbs.Dvbbs_Suc(SucMsgInfo(sucmsg))
	End Sub
	Public Sub NoOK()
		LogType=3
		sucmsg="" & "ID" & Dvbbs.BoardID & "ID" & ID
		Dvbbs.Execute("Update [Dv_topic] Set Ok = 2 Where BoardID = " & Dvbbs.BoardID & " And TopicID = " & ID)
		Insert_Forum_Log()
		Update_User_Point("")
		Topic_Manage_Sms()
		Dvbbs.Dvbbs_Suc(SucMsgInfo(sucmsg))
	End Sub
	Public Sub OK()
		LogType=3
		sucmsg="ȡ" & "ID" & Dvbbs.BoardID & "ID" & ID
		Dvbbs.Execute("Update [Dv_topic] Set Ok = 0 Where BoardID = " & Dvbbs.BoardID & " And TopicID = " & ID)
		Insert_Forum_Log()
		Update_User_Point("")
		Topic_Manage_Sms()
		Dvbbs.Dvbbs_Suc(SucMsgInfo(sucmsg))
	End Sub
	Public Sub WaitingOK()
		LogType=3
		sucmsg="ڽ" & "ID" & Dvbbs.BoardID & "ID" & ID
		Dvbbs.Execute("Update [Dv_topic] Set Ok = 3 Where BoardID = " & Dvbbs.BoardID & " And TopicID = " & ID)
		Insert_Forum_Log()
		Update_User_Point("")
		Topic_Manage_Sms()
		Dvbbs.Dvbbs_Suc(SucMsgInfo(sucmsg))
	End Sub
	'xintiaoӼ״̬

index.aspļ

ҵ
	issmstopic,hidename
滻Ϊ
	issmstopic,hidename,ok

ҵ
        Dim Topic,TopTopic,TopicMode,lastpost,Page,PageCount,Cmd,
滻Ϊ
        Dim Topic,TopTopic,TopicMode,lastpost,Page,PageCount,Cmd,Ok,

ҵ
			If InStr(Topic(15,i),"|")>0 And InStr(Topic(15,i),"0|")<>1	Then	Call TopicTool(0,0,Topic(0,i),5)	' ħ

滻Ϊ
			If InStr(Topic(15,i),"|")>0 And InStr(Topic(15,i),"0|")<>1	Then	Call TopicTool(0,0,Topic(0,i),5)	' ħ
                        If Topic(23,i)=1 Then	Call TopicTool(0,0,Topic(0,i),6)	' ѽ
			If Topic(23,i)=2 Then     Call TopicTool(0,0,Topic(0,i),7)	' δ				
			If Topic(23,i)=3 Then     Call TopicTool(0,0,Topic(0,i),12)	' ڽ				

ҵ
	Case 5
		TPL_Echo "<span style=""float:right""><img src=""dv_plus/tools/magicface/magicemot.gif"" border=""0""  alt=""ħ"" /></span> "
滻Ϊ
	Case 5
		TPL_Echo "<span style=""float:right""><img src=""dv_plus/tools/magicface/magicemot.gif"" border=""0""  alt=""ħ"" /></span> "
	Case 6
		TPL_Echo "<span style=""float:right""><img src=""images/right.gif"" border=""0""  alt=""ѽ"" /></span> "
	Case 7
		TPL_Echo "<span style=""float:right""><img src=""images/wait.gif"" border=""0""  alt=""δ"" /></span> "
	Case 12
		TPL_Echo "<span style=""float:right""><img src=""images/Waiting.gif"" border=""0""  alt=""ڽ"" /></span> "


dispbbs.asp ļ

ҵ
				s=s& "	<a href=""admin_postings.asp?action=&amp;BoardID="&Dvbbs.boardid&"&amp;ID="&AnnounceID&""" title=""бǰ""></a><br />"
滻Ϊ
				s=s& "	<a href=""admin_postings.asp?action=NoOK&amp;BoardID="&Dvbbs.boardid&"&amp;ID="&AnnounceID&"""  title=""δõ""></a><br />"
				s=s& "	<a href=""admin_postings.asp?action=WaitingOK&amp;BoardID="&Dvbbs.boardid&"&amp;ID="&AnnounceID&"""  title=""δõ""></a><br />"
				s=s& "	<a href=""admin_postings.asp?action=IsOK&amp;BoardID="&Dvbbs.boardid&"&amp;ID="&AnnounceID&"""  title=""Ѿõ"">ѽ</a><br />"
				s=s& "	<a href=""admin_postings.asp?action=OK&amp;BoardID="&Dvbbs.boardid&"&amp;ID="&AnnounceID&"""  title=""ȡ"">Ǽ</a><br />"
				s=s& "	<a href=""admin_postings.asp?action=&amp;BoardID="&Dvbbs.boardid&"&amp;ID="&AnnounceID&""" title=""бǰ""></a><br />"

ġ savepost.asp ļ

ҵ
		SQL="insert into Dv_topic (Title,Boardid,PostUsername,PostUserid,DateAndTime,Expression,LastPost,LastPostTime,PostTable,locktopic,istop,TopicMode,isvote,PollID,Mode,GetMoney,UseTools,GetMoneyType,isSmsTopic,HideName) values ('"&topic&"',"&Dvbbs.boardid&",'"&username&"',"&Dvbbs.userid&",'"&DateTimeStr&"','"&Expression(0)&"|"&Expression(1)&"','$$"&DateTimeStr&"$$$$','"&MyLastPostTime&"','"&TotalUseTable&"',"&locktopic&","&Myistop&","&MyTopicMode&","&isvote&","&voteid&","&TopicMode&","&ToMoney&",'"&UseTools&"',"&GetMoneyType&","&isAlipayTopic&","&hidename&")"

滻Ϊ
		'ѽ sm掾C
		Dim ok 
                ok=Dvbbs.Checkstr(Request.Form("ok"))
		If Not IsNumeric(ok) Or ok=""  Then 
		ok = 0
		Else
		ok =CLng(ok)
		End if
		SQL="insert into Dv_topic (Title,Boardid,PostUsername,PostUserid,DateAndTime,Expression,LastPost,LastPostTime,PostTable,locktopic,istop,TopicMode,isvote,PollID,Mode,GetMoney,UseTools,GetMoneyType,isSmsTopic,HideName,ok) values ('"&topic&"',"&Dvbbs.boardid&",'"&username&"',"&Dvbbs.userid&",'"&DateTimeStr&"','"&Expression(0)&"|"&Expression(1)&"','$$"&DateTimeStr&"$$$$','"&MyLastPostTime&"','"&TotalUseTable&"',"&locktopic&","&Myistop&","&MyTopicMode&","&isvote&","&voteid&","&TopicMode&","&ToMoney&",'"&UseTools&"',"&GetMoneyType&","&isAlipayTopic&","&hidename&","&ok&")"



塢̨   -- ģܹ -- ҳģ(page_post)   --  -- template.html(0)    (ÿҪ޸ģ

ҵ
       <input name="topic" id="topic" size="45" class="FormClass" value="{$topic}" />
滻Ϊ
       <input name="topic" id="topic" size="45" class="FormClass" value="{$topic}" />
       <input type="checkbox" name="ok" value="2"> <font color="#FF0000"> Ƿ</font>

˵

ȼϹ   ÿӵй 

